home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Peter Lewis / PNL Libraries / MySocks.p < prev    next >
Encoding:
Text File  |  1994-08-14  |  742 b   |  48 lines  |  [TEXT/PJMM]
  1. unit MySocks;
  2.  
  3. interface
  4.  
  5.     const
  6.         socks_default_port = 1080;
  7.         socks_version = 4;
  8.  
  9.     const { Response commands/codes }
  10.         socks_connect = 1;
  11.         socks_bind = 2;
  12.         socks_result = 90;
  13.         socks_fail = 91;
  14.  
  15.     type
  16.         SocksRecordSmall = packed record
  17.                 version: byte;
  18.                 cmd: byte;
  19.                 port: integer;
  20.                 ip: longInt;
  21.             end;
  22.         SocksRecord = packed record
  23.                 version: byte;
  24.                 cmd: byte;
  25.                 port: integer;
  26.                 ip: longInt;
  27.                 name: str63; {cstring!}
  28.             end;
  29.  
  30. implementation
  31.  
  32. end.
  33. const
  34.     socks_version = 3;
  35. type
  36.     SocksRecordSmall = packed record
  37.             version: byte;
  38.             cmd: byte;
  39.             port: longInt;
  40.             ip: longInt;
  41.         end;
  42.     SocksRecord = packed record
  43.             version: byte;
  44.             cmd: byte;
  45.             port: longInt;
  46.             ip: longInt;
  47.             name: str63; {cstring!}
  48.         end;